CHINA Cases and Deaths by Date

## Warning: Transformation introduced infinite values in continuous y-axis
CHINA$Deaths <- na.omit(CHINA$Deaths)
china_deaths <-CHINA  %>%  ggplot() + geom_col(aes(x=Reported,y=Deaths,fill=Deaths)) +
  theme(axis.text.x = element_text(angle = 45)) +
      labs(x="Date Reported",y="Log Deaths",title="COVID-19: Deaths by Date") +
            scale_y_log10()

ggplotly(china_deaths)           
## Warning: Transformation introduced infinite values in continuous y-axis

CHINA Accumulated Daily Total: Cases and Deaths

CHINA Recoveries Accoumliated and Daily

JHU_CHINA %>% 
  ggplot() + geom_col(aes(x=Date,y=na.omit(Recovered),fill=Recovered)) +
  theme(axis.text.x = element_text(angle = 45)) +
      labs(title="China COVID-19: Accumulated  Recoveries by Date",x="Date Reported",y="Total Cases")   +
  scale_fill_gradient(labels = scales::comma) + scale_y_log10()

JHU_CHINA  %>%
  ggplot() + geom_col(aes(x=Date,y=na.omit(Recovered),fill=Recovered)) +
  theme(axis.text.x = element_text(angle = 45)) +
      labs(title="CHINAA COVID-19: Accumulated  Recoveries by Date",x="Date Reported",y="Total Cases")  + scale_y_continuous(labels = scales::comma) +
  scale_fill_gradient(labels = scales::comma) + scale_y_log10()
## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.